From: Lars Ingebrigtsen Date: Mon, 17 Jun 2019 13:48:39 +0000 (+0200) Subject: Change the eieio-declare-slots function into a macro X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~19^2~2828 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=c0b322e33c3e6d782da596ae91f3916d7195c12e;p=emacs.git Change the eieio-declare-slots function into a macro * lisp/emacs-lisp/eieio-core.el (eieio-declare-slots): Change into a compile-only macro. --- diff --git a/lisp/emacs-lisp/eieio-core.el b/lisp/emacs-lisp/eieio-core.el index b6acab2a25a..620b47e68d2 100644 --- a/lisp/emacs-lisp/eieio-core.el +++ b/lisp/emacs-lisp/eieio-core.el @@ -1085,9 +1085,10 @@ method invocation orders of the involved classes." These match if the argument is the name of a subclass of CLASS." (list eieio--generic-subclass-generalizer)) -(defun eieio-declare-slots (&rest slots) +(defmacro eieio-declare-slots (&rest slots) "Declare that SLOTS are known eieio object slot names." - (setq eieio--known-slot-names (append slots eieio--known-slot-names))) + `(eval-when-compile + (setq eieio--known-slot-names (append ',slots eieio--known-slot-names)))) (provide 'eieio-core)